home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / stat < prev    next >
Encoding:
Text File  |  2002-10-28  |  1.7 KB  |  72 lines
  1. # STAT version 1.0   03 November 1993
  2. #
  3. # Shows additional statistics on server's current role on the net.
  4. #
  5. # Concept, original version:        Twilight1 <pda@engr.engr.uark.edu>
  6. # This version:                Jeremy Nelson (jnelson@acronet.net)
  7. #
  8. # Usage: /stat [server]
  9. #
  10. # Action: /stat  by itself will query the statistics from the local server.
  11. #         /stat with an optional server name will query the remote server for
  12. #         the statistics. 
  13.  
  14. alias stat {if ([$0]) {rstat $0} {lstat}}
  15.  
  16. alias lstat {
  17.     start_stat
  18.     ^on ^255 * {
  19.         @ lstat.tmp = FLOATING_POINT_MATH
  20.         set floating_point_math ON
  21.         @ remote_users = [$3]
  22.         @ percent = (remote_users / total_users) * 100
  23.         @ average = total_users / total_servers
  24.         set floating_point_math $lstat.tmp
  25.         echo *** User statistics for server $0
  26.         echo *** I have $remote_users of $total_users users on $total_servers servers.
  27.         end_stat
  28.     }
  29.     lusers 
  30. }
  31.  
  32. alias rstat {
  33.     start_stat
  34.     lusers 
  35.     wait
  36.  
  37.     ^on ^251 * { @remote_users = [$3]+[$6] }
  38.     ^on ^255 * {
  39.         @ lstat.tmp = FLOATING_POINT_MATH
  40.         set floating_point_math ON
  41.         @ percent = (remote_users / total_users) * 100
  42.         @ average = total_users / total_servers
  43.         set floating_point_math $lstat.tmp
  44.         echo *** User statistics for server $0
  45.         echo *** I have $local_users of $total_users users on $total_servers servers.
  46.         end_stat
  47.     }
  48.     lusers $remote_server
  49. }
  50.    
  51. alias start_stat {
  52.     stack push on 251
  53.     stack push on 252
  54.     stack push on 254
  55.     stack push on 255
  56.     ^on ^251 * {@total_users = [$3]+[$6];@total_servers = [$9]}
  57.     ^on ^252 * #
  58.     ^on ^254 * #
  59.     ^on ^255 * #
  60. }
  61.  
  62. alias end_stat {
  63.     stack pop on 251
  64.     stack pop on 252
  65.     stack pop on 254
  66.     stack pop on 255
  67.     echo *** That is $percent% of the total number of users on IRC.
  68.     echo *** The average serverload is $average user[s] per server.
  69. }
  70.  
  71. # Set phasers to stun.
  72.